Imports System.Xml
Imports System.Data.SqlClient
Public Class dOrdendePago
    Public Function Existe(ByVal CodigoOrdendePago As String) As Boolean
        Dim Parametros As ArrayList = New ArrayList
        If CodigoOrdendePago <> "" Then
            Parametros.Add(New SqlParameter("@pECodigoOrdendePago", CodigoOrdendePago))
        End If
        Return (dConexion.Consultar("STORE_TblOrdendePagoBUSCARFILTRADO", Parametros).Tables(0).Rows(0).ItemArray(0) = 1)
    End Function

    Public Function Insertar(ByVal Importe As String, ByVal IdProveedor As String, ByVal Observacion As String) As DataSet
        Dim Parametros As ArrayList = New ArrayList
        If Importe <> "" Then
            Parametros.Add(New SqlParameter("@pEImporte", CDbl(Importe)))
        End If
        If IdProveedor <> "" Then
            Parametros.Add(New SqlParameter("@pEIdProveedor", IdProveedor))
        End If
        If Observacion <> "" Then
            Parametros.Add(New SqlParameter("@pEObservacion", Observacion))
        End If
        Return dConexion.Consultar("STORE_TblOrdendePagoALTA", Parametros)
    End Function
    Public Function Eliminar(ByVal CodigoOrdendePago As String) As Boolean
        Dim Parametros As ArrayList = New ArrayList
        If CodigoOrdendePago <> "" Then
            Parametros.Add(New SqlParameter("@pECodigoOrdendePago", CodigoOrdendePago))
        End If
        Return dConexion.ABM("STORE_TblOrdendePagoELIMINAR", Parametros)
    End Function
    Public Function BuscarFiltrado(ByVal CodigoOrdendePago As String, ByVal Fecha As String, ByVal Importe As String, ByVal IdProveedor As String, ByVal Observacion As String) As DataSet
        Dim Parametros As ArrayList = New ArrayList
        If CodigoOrdendePago <> "" Then
            Parametros.Add(New SqlParameter("@pECodigoOrdendePago", CodigoOrdendePago))
        End If
        If Fecha <> "" Then
            Parametros.Add(New SqlParameter("@pEFecha", Fecha))
        End If
        If Importe <> "" Then
            Parametros.Add(New SqlParameter("@pEImporte", CDbl(Importe)))
        End If
        If IdProveedor <> "" Then
            Parametros.Add(New SqlParameter("@pEIdProveedor", IdProveedor))
        End If
        If Observacion <> "" Then
            Parametros.Add(New SqlParameter("@pEObservacion", Observacion))
        End If
        Return dConexion.Consultar("STORE_TblOrdendePagoBUSCARFILTRADO", Parametros)
    End Function





End Class
